home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / iqb9109.zip / SYSINFO.BAS < prev    next >
BASIC Source File  |  1991-06-04  |  807b  |  41 lines
  1. ' Program SysInfo.Bas
  2. ' Program to obtain the PC system ID byte
  3. ' and the ROM BIOS date
  4. '
  5.  
  6. CONST SysIDSeg = &HF000
  7. CONST SysIDOff = &HFFFE
  8. CONST RDOffset = &HFFF5
  9.  
  10. DIM RomDate AS STRING
  11.  
  12. DEF SEG = SysIDSeg
  13. SysID% = PEEK(SysIDOff)
  14. RomDate = ""
  15. FOR I% = 0 TO 7
  16.    RomDate = RomDate _
  17.            + CHR$(PEEK(RDOffset + I%))
  18. NEXT I%
  19.  
  20. PRINT "The system ID number is ";
  21. PRINT HEX$(SysID%); " which is a ";
  22.  
  23. SELECT CASE SysID%
  24.       CASE &HFF
  25.           PRINT "PC"
  26.       CASE &HFE, &HFB
  27.           PRINT "PC/XT"
  28.       CASE &HFD
  29.           PRINT "PC Jr."
  30.       CASE &HFC
  31.           PRINT "PC/AT or PC/XT-286"
  32.       CASE &HF9
  33.           PRINT "PC Convertible"
  34.       CASE ELSE
  35.           PRINT "unlisted PC model"
  36. END SELECT
  37.  
  38. PRINT "The ROM BIOS release date is ";
  39. PRINT RomDate
  40. END
  41.